home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / elan1v5.arc / DRAGON.ARC / TREE.E < prev   
Text File  |  1989-03-10  |  630b  |  17 lines
  1. program:setup dragon;start drawing;draw dragon(days, start cell);finish drawing.
  2. setup dragon:
  3.   LET dragon name = "Christmas Tree";
  4.   LET directions = 5;
  5.   LET variants = 10;
  6.   LET children = 3;
  7.   ROW variants ROW children INT CONST offsprings :: [[9, 0, 6], [5, 1, 7], [6, 2, 8], [7, 3, 9], [8, 4, 5], [1, 5, 4], [2, 6, 0], [3, 7, 1], [4, 8, 2], [0, 9, 3]];
  8.   ROW variants INT CONST behavior :: [0, 1, 2, 3, 4, 0, 1, 2, 3, 4];
  9.   INT CONST days :: 7;
  10.   INT CONST start cell :: 0;
  11.   INT CONST size of cell :: 5;
  12.   INT CONST start x :: graphics x limit DIV 3;
  13.   INT CONST start y :: 6 * graphics y limit DIV 7.
  14.  
  15.  
  16.  
  17. ⇦